Chủ đề / Chương

Bài học

Hãy tham gia nhóm Học sinh Hoc24OLM
LA VAN CAU
Viết chương trình đọc dữ liệu từ tệp fi với tệp fi chứa dữ liệu là 1 xâu dữ liệu. Ghi kết quả vào tệp fo các kết quả sau khi xử lý xâu.a. Xâu vừa đọc được từ tệp fi, xâu chuyển thành chữ in hoab. Xâu s1 được tạo gồm n kí tự liên tiếp của xâu s bắt đầu tại vt.c. Xâu sau khi xóa a kí tự của xâu s bắt đầu tại vị trí vt
Đọc tiếp
Lớp 11 Tin học
Những câu hỏi liên quan
nguyen dao

Viết chương trình đọc xâu dữ liệu từ tệp vào vào. Xóa các kí tự ‘a’ trong xâu và in xâu sau khi đã xóa ra tệp kết quả

Xem chi tiết
Lớp 11 Tin học Bài 12: Kiểu xâu

Khách
 
Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 21:09

const fi='vao.inp'

fo='ra.out'

var f1,f2:text;

st:string;

i,d:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,st);

d:=length(st);

for i:=1 to d do 

  if st[i]='a' then delete(st,i,1);

writeln(f2,st);

close(f1);

close(f2);

end.

Bình luận (0)
Yến Hoang Thị Hải

Viết chương trình đọc dữ liệu từ tệp Input.Txt 2 xâu. Viết kết quả vào tệp output.Txt xâu nào ngắn hơn. Nếu 2 xâu bằng nhau thì viết thông báo: “2 xâu bằng nhau”

Xem chi tiết
Lớp 11 Tin học

Khách
 
Khánh Mỹ

Viết chương trình đọc dữ liệu từ tệp Input.txt chứa một xâu có độ dài không quá 125 ký tự .Cho biết số lần xuất hiện của mỗi chữ cái Tiếng Anh trong xâu đã đọc được ( không phân chữ hoa thường). Ghi kết quả ra tệp Output.txt 

Xem chi tiết
Lớp 11 Tin học

Khách
 
Nguyễn Lê Phước Thịnh
21 tháng 4 2021 lúc 19:21

const fi='input.txt'

fo='output.txt'

var f1,f2:text;

st:string[125];

a:array[1..125]of string;

i,d,dem,kt,j:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,st);

d:=length(st);

dem:=1;

a[1]:=st[1];

for i:=1 to d do

  begin

kt:=0;

for j:=1 to dem do 

  if a[j]=st[i] then kt:=1;

if kt=0 then 

begin

inc(dem);

a[dem]:=st[i];

end;

end;

for i:=1 to dem do 

  begin

dem1:=0;

for j:=1 to d do 

if a[i]=st[j] then inc(dem1);

writeln(f2,a[i],' xuat hien ',dem1,' lan');

end;

close(f1);

close(f2);

end.

Bình luận (0)
hoanganh

Cho tệp XAU.TXT chứa 1 xâu ký tự

Viết chương trình đọc dữ liệu từ tệp XAU.TXT ra xâu S

Kiểm tra xâu S có là xâu đối xứng ?

M.n ai bt chỉ giúp e với

Xem chi tiết
Lớp 11 Tin học

Khách
 
Nguyễn Lê Phước Thịnh
8 tháng 5 2021 lúc 20:23

uses crt;

const fi='xau.txt'

var f1:text;

s:string;

i,d,kt:integer;

begin

clrscr;

assign(f1,fi); reset(f1);

readln(f1,s);

d:=length(s);

kt:=0;

for i:=1 to d do

if st[i]<>st[d-i+1] then kt:=1;

if kt=0 then writeln('Xau doi xung')

else writeln('Xau khong doi xung');

readln;

end.

Bình luận (0)
U Lan

Cho tệp văn bản có tên DATA2.TXT chứa một xâu bất kì không quá 255 kí tự gồm các chữ và số. Viết chương trình đọc xâu kí tự S từ từ tệp DATA2.TXT sau đó ghi dữ liệu là các thông tin sau vào tệp KQ2.TXT:

- Dòng 1: Số lần xuất hiện của kí tự "k" trong xâu?

- Dòng 2: Số lượng kí tự là số xuất hiện trong S (giữ nguyên thứ tự xuất hiện)?

Xem chi tiết
Lớp 11 Tin học Ôn tập cuối năm

Khách
 
U Lan

Cho tệp văn bản có tên DATA2.TXT chứa một xâu bất kì không quá 255 kí tự gồm các chữ và số. Viết chương trình đọc xâu kí tự S từ từ tệp DATA2.TXT sau đó ghi dữ liệu là các thông tin sau vào tệp KQ2.TXT:

- Dòng 1: Số lần xuất hiện của kí tự "k" trong xâu?

- Dòng 2: Số lượng kí tự là số xuất hiện trong S (giữ nguyên thứ tự xuất hiện)?

Xem chi tiết
Lớp 11 Tin học Ôn tập cuối năm

Khách
 
U Lan

Cho tệp văn bản có tên DATA2.TXT chứa một xâu bất kì không quá 255 kí tự gồm các chữ và số. Viết chương trình đọc xâu kí tự S từ từ tệp DATA2.TXT sau đó ghi dữ liệu là các thông tin sau vào tệp KQ2.TXT:

- Dòng 1: Số lần xuất hiện của kí tự "k" trong xâu?

- Dòng 2: Số lượng kí tự là số xuất hiện trong S (giữ nguyên thứ tự xuất hiện)?

Help me!!! Mai mk thi ạ

Xem chi tiết
Lớp 11 Tin học Ôn tập cuối năm

Khách
 
U Lan

Cho tệp văn bản có tên DATA2.TXT chứa một xâu bất kì không quá 255 kí tự gồm các chữ và số. Viết chương trình đọc xâu kí tự S từ từ tệp DATA2.TXT sau đó ghi dữ liệu là các thông tin sau vào tệp KQ2.TXT:

- Dòng 1: Số lần xuất hiện của kí tự "k" trong xâu?

- Dòng 2: Số lượng kí tự là số xuất hiện trong S (giữ nguyên thứ tự xuất hiện)?

Xem chi tiết
Lớp 11 Tin học Ôn tập cuối năm

Khách
 
Cao Thị Hoa

Gải sử có tệp văn bản KT.TXT chứa xâu kí tự không quá 255. Viết chương trình đọc dữ liệu trong tệp KT.TXT vào biến S. Thay thế tất cả các cụm kí tự "anh" bằng cụm kí tự "em". Ghi xâu sau khi được thay thế vào tệp KQ.OUT

giúp em với mai em thi rồi ạ

Xem chi tiết
Lớp 11 Tin học Bài 15: Thao tác với tệp

Khách
 
Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 13:11

const fi='kt.txt'

fo='kq.out'

var f1,f2:text;

s:string;

i,dem,d:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,s);

vt:=pos('anh',s);

while vt<>0 do

begin

delete(s,vt,3);

insert(s,vt,'em');

vt:=pos('anh',s);

end;

writeln(f2,s);

close(f1);

close(f2);

end.

Bình luận (0)

Khoá học trên OLM (olm.vn)